home *** CD-ROM | disk | FTP | other *** search
Modula Implementation | 1988-08-16 | 921 b | 26 lines |
- IMPLEMENTATION MODULE KermVers;
- (************************************************************************)
- (* Version displays information about the current version of M2-Kermit *)
- (* written: 25.02.86 Matthias Aebi *)
- (* last modification: 17.03.86 Matthias Aebi *)
- (************************************************************************)
-
- FROM Terminal IMPORT WriteString, WriteLn;
- FROM M2Kermit IMPORT VersionStr;
-
- (************************************************************************)
- PROCEDURE Version;
- (************************************************************************)
- BEGIN
- WriteLn;
- WriteString(VersionStr);
- WriteLn;
- WriteString("by Matthias Aebi, March 1986");
- WriteLn;
- WriteString("Institut f. Informatik, University of Zuerich");
- WriteLn;
- WriteLn;
- END Version;
-
- END KermVers.
-